home *** CD-ROM | disk | FTP | other *** search
/ EIDOS Interactive Digital Press Kit ECTS 1997 / EIDOS Digital Press Kit - ECTS 1997 - Disc 1.iso / pc / mmenu.dir / Internal_78.ls < prev    next >
Encoding:
Text File  |  1997-08-29  |  503 b   |  17 lines
  1. on xtracopypress
  2.   if the platform contains "Mac" then
  3.     maccopypress()
  4.   else
  5.     openXLib("Xtras\filecopy")
  6.     set fileName to the pathName & "presstxt\" & the name of cast the mouseCast
  7.     if fileName > EMPTY then
  8.       set wFileName to doSaveAsDlg(the pathName & "presstxt\" & the name of cast the mouseCast, "Word@*.rtf")
  9.       if wFileName > EMPTY then
  10.         set result to copyFile(wFileName, fileName)
  11.         put result
  12.       end if
  13.     end if
  14.     closeXLib("Xtras\filecopy")
  15.   end if
  16. end
  17.